home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2002 #11 / Amiga Plus CD - 2002 - No. 11.iso / Tools / Development / Feelin021015 / Examples / Groups.e < prev    next >
Encoding:
Text File  |  2002-10-28  |  2.7 KB  |  114 lines
  1. OPT PREPROCESS
  2.  
  3. MODULE 'feelin','libraries/feelin'
  4.  
  5. PROC main()
  6.    DEF c,w
  7.  
  8.    IF feelinbase := OpenLibrary('feelin.library',FV_VERSION)
  9.       c := ClientObject,
  10.          Child, w := WindowObject, FA_Window_Title,'Feelin : Groups',
  11.             Child, VGroup,
  12.                Child, HGroup, GroupFrame, FA_Frame_Title, 'Group Types', FA_Group_SameSize,TRUE,
  13.                   Child, HGroup, GroupFrame, FA_Frame_Title, 'Horizontal',
  14.                      Child, rectObj(),
  15.                      Child, rectObj(),
  16.                      Child, rectObj(),
  17.                   End,
  18.  
  19.                   Child, VGroup, GroupFrame, FA_Frame_Title, 'Vertical',
  20.                      Child, rectObj(),
  21.                      Child, rectObj(),
  22.                      Child, rectObj(),
  23.                   End,
  24.  
  25.                   Child, VGroup, GroupFrame, FA_Frame_Title, 'Array',
  26.                      Child, HGroup,
  27.                         Child, rectObj(),
  28.                         Child, rectObj(),
  29.                         Child, rectObj(),
  30.                      End,
  31.  
  32.                      Child, HGroup,
  33.                         Child, rectObj(),
  34.                         Child, rectObj(),
  35.                         Child, rectObj(),
  36.                      End,
  37.  
  38.                      Child, HGroup,
  39.                         Child, rectObj(),
  40.                         Child, rectObj(),
  41.                         Child, rectObj(),
  42.                      End,
  43.                   End,
  44.                End,
  45.  
  46.                Child, VGroup,
  47.                   Child, HGroup, GroupFrame, FA_Frame_Title, 'Different Weights',
  48.                      Child, textObj( '25 kg',[FA_Weight, 25, NIL]),
  49.                      Child, textObj( '50 kg',[FA_Weight, 50, NIL]),
  50.                      Child, textObj( '75 kg',[FA_Weight, 75, NIL]),
  51.                      Child, textObj('100 kg',[FA_Weight,100, NIL]),
  52.                   End,
  53.  
  54.                   Child, HGroup, GroupFrame, FA_Frame_Title, 'Fixed & Variable Sizes',
  55.                      Child, textObj('fixed',[FA_FixedWidth,TRUE, NIL]),
  56.                      Child, textObj('free'),
  57.                      Child, textObj('fixed',[FA_FixedWidth,TRUE, NIL]),
  58.                      Child, textObj('free'),
  59.                      Child, textObj('fixed',[FA_FixedWidth,TRUE, NIL]),
  60.                   End,
  61.  
  62.                   Child, HGroup, GroupFrame, FA_Frame_Title, 'Relative Sizes', FA_Group_RelSizing,TRUE,
  63.                      Child, textObj('1'),
  64.                      Child, textObj('12'),
  65.                      Child, textObj('123'),
  66.                      Child, textObj('1234'),
  67.                      Child, textObj('12345'),
  68.                   End,
  69.  
  70.                   Child, HGroup, GroupFrame, FA_Frame_Title, 'Same Width', FA_Group_SameWidth,TRUE,
  71.                      Child, textObj('1'),
  72.                      Child, textObj('12'),
  73.                      Child, textObj('123'),
  74.                      Child, textObj('1234'),
  75.                   End,
  76.                End,
  77.             End,
  78.          End,
  79.       End
  80.  
  81.       IF c
  82.          F_DoA(w,FM_Notify,[FA_Window_CloseRequest,TRUE,FV_Notify_Client,2,FM_Client_ReturnID,FV_Client_Quit])
  83.          F_Set(w,FA_Window_Open,TRUE)
  84.  
  85.          F_DoA(c,FM_Client_Run,NIL)
  86.  
  87.          F_DisposeObj(c)
  88.       ENDIF
  89.  
  90.       CloseLibrary(feelinbase)
  91.    ELSE
  92.       WriteF('Unable to open feelin.library\n')
  93.    ENDIF
  94. ENDPROC
  95.  
  96. PROC textObj(name,tags=NIL)
  97.    RETURN   TextObject,
  98.             DontChain,
  99.             FA_FixedHeight,   TRUE,
  100.             TextFrame,
  101.             TextBack,
  102.             FA_Text,          name,
  103.             FA_Text_PreParse, '`c',
  104.             TAG_MORE,         tags,
  105.             End
  106. ENDPROC
  107. PROC rectObj()
  108.    RETURN   AreaObject,
  109.             DontChain,
  110.             TextFrame,
  111.             TextBack,
  112.             End
  113. ENDPROC
  114.